home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0039 / source / m2conv.def < prev    next >
Text File  |  1997-04-16  |  1KB  |  46 lines
  1. DEFINITION MODULE M2Conv;
  2.  
  3. (*    
  4.     1/ 9/89 LGM : Based on SmallIO Module from HiSoft.    
  5. *)
  6.  
  7.  
  8. PROCEDURE ConvToInt( s : ARRAY OF CHAR; ) : INTEGER;
  9. PROCEDURE ConvToLongint( s : ARRAY OF CHAR; ) : LONGINT;
  10.  
  11.     (*Conv an integer value 
  12.      Number may have leading sign
  13.      Leading blanks, line separators and tabs are ignored
  14.      A non-numeric terminates*)
  15.  
  16. PROCEDURE ConvToCard( s : ARRAY OF CHAR; ) : CARDINAL;
  17. PROCEDURE ConvToLongcard( s : ARRAY OF CHAR; ) : LONGCARD;
  18.  
  19.     (*Conv a cardinal*)
  20.  
  21.  
  22. PROCEDURE IntToString( x : LONGINT; places : CARDINAL;
  23.                VAR s : ARRAY OF CHAR; );
  24.  
  25.     (*Write x in at least places places 
  26.      number is right justified. If more spaces are required
  27.      than there are places, the field is expanded. In this
  28.      case, there are no leading blanks*)
  29.  
  30. PROCEDURE CardToString( x : LONGCARD; places:CARDINAL; 
  31.                         VAR s : ARRAY OF CHAR; );
  32.  
  33. PROCEDURE CardToHexString( c:LONGCARD; places:CARDINAL;
  34.                VAR s : ARRAY OF CHAR );
  35.  
  36. PROCEDURE CardToOctString( x:LONGCARD; places:CARDINAL;
  37.                VAR s  :ARRAY OF CHAR );
  38.  
  39.     (*Other cardinaloutput routines. To write an integer in hex, use
  40.      WriteHex(Cardinal(integervalue),4 (*say*)); -1 will print as FFFF*)
  41.  
  42.     (*See the module RealInOut for Real number IO*)
  43.  
  44.  
  45. END M2Conv. 
  46.